object DefineButtonForm: TDefineButtonForm Left = 49 Top = 141 BorderIcons = [biSystemMenu] BorderStyle = bsDialog Caption = 'Button Attributes' ClientHeight = 347 ClientWidth = 520 Font.Color = clBtnText Font.Height = -12 Font.Name = 'Arial' Font.Style = [] Position = poScreenCenter Scaled = False ShowHint = True PixelsPerInch = 96 TextHeight = 15 object PageControl: TPageControl Left = 8 Top = 8 Width = 504 Height = 297 ActivePage = General TabOrder = 0 OnChange = PageControlChange object General: TTabSheet Caption = 'General Settings' object Label1: TLabel Left = 8 Top = 8 Width = 63 Height = 15 Caption = 'Button &Text:' end object Label3: TLabel Left = 108 Top = 120 Width = 77 Height = 15 Caption = 'Short Cut &Key:' FocusControl = ShortCutKey end object AlignmentPrompt: TLabel Left = 8 Top = 120 Width = 58 Height = 15 Caption = 'Alignment:' end object LeftBtn: TSpeedButton Tag = 1 Left = 8 Top = 140 Width = 25 Height = 25 Hint = 'Left' GroupIndex = 1 Down = True Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777777777777777777777777777777777700000000000077777777777777 7777770000000077777777777777777777777700000000000077777777777777 7777770000000077777777777777777777777700000000000077777777777777 7777770000000077777777777777777777777777777777777777} ParentShowHint = False ShowHint = True end object CenterBtn: TSpeedButton Tag = 2 Left = 33 Top = 140 Width = 25 Height = 25 Hint = 'Center' GroupIndex = 1 Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777777777777777777777777777777777700000000000077777777777777 7777777700000000777777777777777777777700000000000077777777777777 7777777700000000777777777777777777777700000000000077777777777777 7777777700000000777777777777777777777777777777777777} ParentShowHint = False ShowHint = True end object RightBtn: TSpeedButton Tag = 4 Left = 58 Top = 140 Width = 25 Height = 25 Hint = 'Right' GroupIndex = 1 Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777777777777777777777777777777777700000000000077777777777777 7777777777000000007777777777777777777700000000000077777777777777 7777777777000000007777777777777777777700000000000077777777777777 7777777777000000007777777777777777777777777777777777} ParentShowHint = False ShowHint = True end object NeoBookBalloon1: TNeoBookBalloon Left = 80 Top = 192 Width = 401 Height = 61 Caption = 'In addition to simple push buttons, NeoBook provides experienced' + ' authors access to text entry fields, check boxes and radio butt' + 'ons. Click the "Button Style" tab to select the type of button y' + 'ou want.' XOffset = 8 YOffset = 3 StemOffset = 14 end object Image1: TNeoBookImage Left = 12 Top = 196 Width = 61 Height = 63 Center = True Transparent = True end object ShortCutKey: THotKey Left = 108 Top = 140 Width = 93 Height = 23 HotKey = 0 InvalidKeys = [hcShift] Modifiers = [] TabOrder = 1 end object ButtonText: TMemo Left = 8 Top = 28 Width = 479 Height = 81 MaxLength = 255 ScrollBars = ssVertical TabOrder = 0 WordWrap = False end object TextPlacementPanel: TPanel Left = 220 Top = 120 Width = 269 Height = 49 BevelOuter = bvNone TabOrder = 2 Visible = False object Label2: TLabel Left = 4 Top = 0 Width = 125 Height = 15 Caption = 'Button Text Placement:' end object Bevel1: TBevel Left = 12 Top = 20 Width = 9 Height = 25 Shape = bsLeftLine end object NextToBtn: TRadioButton Left = 20 Top = 24 Width = 101 Height = 17 Caption = '&Next to Image' Checked = True TabOrder = 1 TabStop = True end object OnTopBtn: TRadioButton Left = 128 Top = 24 Width = 113 Height = 17 Caption = '&On Top of Image' TabOrder = 0 end end end object Style: TTabSheet Caption = 'Button Style' object GroupBox1: TGroupBox Left = 8 Top = 8 Width = 481 Height = 109 Caption = 'Type of Button' TabOrder = 0 object NeoBookImage2: TNeoBookImage Left = 105 Top = 20 Width = 53 Height = 33 Center = True Picture.Data = {} OnClick = NeoBookImage2Click Transparent = True end object NeoBookImage3: TNeoBookImage Left = 105 Top = 64 Width = 84 Height = 33 Center = True Picture.Data = {} OnClick = NeoBookImage3Click Transparent = True end object NeoBookImage4: TNeoBookImage Left = 313 Top = 20 Width = 52 Height = 33 Center = True Picture.Data = {} OnClick = NeoBookImage4Click Transparent = True end object NeoBookImage5: TNeoBookImage Left = 313 Top = 64 Width = 52 Height = 33 Center = True Picture.Data = {} OnClick = NeoBookImage5Click Transparent = True end object Style1: TRadioButton Left = 12 Top = 20 Width = 93 Height = 33 Caption = '&Push Button' Checked = True Color = clBtnFace ParentColor = False TabOrder = 0 TabStop = True OnClick = StyleClick end object Style2: TRadioButton Tag = 1 Left = 12 Top = 64 Width = 93 Height = 33 Caption = '&Text Entry' Color = clBtnFace ParentColor = False TabOrder = 1 OnClick = StyleClick end object Style3: TRadioButton Tag = 2 Left = 220 Top = 20 Width = 93 Height = 33 Caption = '&Check Box' Color = clBtnFace ParentColor = False TabOrder = 2 OnClick = StyleClick end object Style4: TRadioButton Tag = 3 Left = 220 Top = 64 Width = 93 Height = 33 Caption = '&Radio Button' Color = clBtnFace ParentColor = False TabOrder = 3 OnClick = StyleClick end end object GroupBox2: TGroupBox Left = 8 Top = 124 Width = 481 Height = 133 Caption = 'Style Attributes' TabOrder = 1 object StyleDefPanel: TPanel Left = 2 Top = 17 Width = 477 Height = 114 Align = alClient BevelOuter = bvNone BorderWidth = 4 TabOrder = 0 object VarNamePanel: TPanel Left = 4 Top = 4 Width = 469 Height = 56 Align = alTop BevelOuter = bvNone TabOrder = 0 object Label8: TLabel Left = 4 Top = 0 Width = 328 Height = 15 Caption = '&Name of Variable to Store the Status/Contents of this Button:' FocusControl = VarNameBox WordWrap = True end object VarNameBox: TEdit Left = 4 Top = 20 Width = 223 Height = 23 TabOrder = 0 end end object TextLenPanel: TPanel Left = 4 Top = 60 Width = 469 Height = 56 Align = alTop BevelOuter = bvNone TabOrder = 1 object Label6: TLabel Left = 4 Top = 0 Width = 359 Height = 15 Caption = '&Maximum Number of Characters that may be Entered in this Field:' FocusControl = TextLenBox WordWrap = True end object TextLenBox: TSpinEdit Left = 4 Top = 20 Width = 93 Height = 24 MaxValue = 0 MinValue = 0 TabOrder = 0 Value = 0 end end object InitStatePanel: TPanel Left = 4 Top = 116 Width = 469 Height = 53 Align = alTop BevelOuter = bvNone TabOrder = 2 object Label9: TLabel Left = 4 Top = 0 Width = 255 Height = 15 Caption = 'Initial State of this Button at Start of Publication:' WordWrap = True end object DownBtn: TRadioButton Left = 4 Top = 24 Width = 113 Height = 17 Caption = '&Down (Checked)' TabOrder = 0 end object UpBtn: TRadioButton Left = 132 Top = 24 Width = 113 Height = 17 Caption = '&Up (Unchecked)' TabOrder = 1 end end object ButtonImagePanel: TPanel Left = 4 Top = 169 Width = 469 Height = 111 Align = alTop BevelOuter = bvNone TabOrder = 3 object Label5: TLabel Left = 4 Top = 0 Width = 230 Height = 15 Caption = 'Icon / Image to Display when Button is &Up:' FocusControl = UpName end object SpeedButton1: TSpeedButton Left = 324 Top = 19 Width = 25 Height = 25 Glyph.Data = { E6000000424DE6000000000000007600000028000000100000000E0000000100 0400000000007000000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00111111111111 11111110000000000111110BBBBBBBBBB011110BBBBBBBBBB011110BBBBBBBBB B011110BBBBBBBBBB011110BBBBBBBBBB011110BBBBBBBBBB011110BBBBBBBBB B011110BBBBBBBBBB011110BBBBB0000001111100000BBBBB011111111110000 01111111111111111111} OnClick = BrowseBtn1Click end object Label7: TLabel Left = 4 Top = 52 Width = 303 Height = 15 Caption = 'Icon / Image to Display when Button is &Down (pressed):' end object SpeedButton2: TSpeedButton Left = 324 Top = 71 Width = 25 Height = 25 Glyph.Data = { E6000000424DE6000000000000007600000028000000100000000E0000000100 0400000000007000000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00111111111111 11111110000000000111110BBBBBBBBBB011110BBBBBBBBBB011110BBBBBBBBB B011110BBBBBBBBBB011110BBBBBBBBBB011110BBBBBBBBBB011110BBBBBBBBB B011110BBBBBBBBBB011110BBBBB0000001111100000BBBBB011111111110000 01111111111111111111} OnClick = BrowseBtn2Click end object Label12: TLabel Left = 360 Top = 36 Width = 61 Height = 15 Caption = 'Display as:' end object Bevel2: TBevel Left = 368 Top = 56 Width = 9 Height = 41 Shape = bsLeftLine end object UpName: TEdit Left = 4 Top = 20 Width = 317 Height = 23 Font.Color = clWindowText Font.Height = -12 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 0 Text = 'UpName' OnChange = UpNameChange end object DownName: TEdit Left = 4 Top = 72 Width = 317 Height = 23 Font.Color = clWindowText Font.Height = -12 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 1 Text = 'DownName' OnChange = UpNameChange end object OpaqueBtn: TRadioButton Left = 376 Top = 56 Width = 65 Height = 17 Caption = '&Opaque' Checked = True TabOrder = 2 TabStop = True end object TransBtn: TRadioButton Left = 376 Top = 80 Width = 89 Height = 17 Caption = 'Tr&ansparent' TabOrder = 3 end end end end end object Action: TTabSheet Caption = 'Button Action' object ActionPanel: TPanel Left = 8 Top = 8 Width = 485 Height = 32 BevelOuter = bvNone TabOrder = 0 object OpenBtn: TSpeedButton Left = 0 Top = 4 Width = 25 Height = 25 Hint = 'Import text from a file' Glyph.Data = { 66010000424D6601000000000000760000002800000014000000140000000100 040000000000F000000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333300003330000000000333333300003330788888880333333300003330 F77777780333333300003330F77777780333333300003330F997777803333333 00003330FFFFFFF7033333330000333000000000033333330000333333333333 33333333000033300333330000000033000033300333330FFFFFF03300003330 0303330F8888F033000033300800330FFFFFF033000033380000030F8888F033 000033338000030FFFFFF033000033333300330F88F00033000033333303330F FFF0033300003333333333000000333300003333333333333333333300003333 33333333333333330000} OnClick = OpenBtnClick end object SaveBtn: TSpeedButton Left = 26 Top = 4 Width = 25 Height = 25 Hint = 'Save text to a file' Glyph.Data = { 66010000424D6601000000000000760000002800000014000000140000000100 040000000000F000000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333300003333333300000000003300003333333307888888803300003333 33330F77777780330000333333330F77777780330000333333330F9977778033 0000333333330FFFFFFF70330000333333330000000000330000333333333333 3333333300003330000000033300333300003330FFFFFF033000033300003330 F8888F030000003300003330FFFFFF033300333300003330F8888F0333003333 00003330FFFFFF033800333300003330F88F00030008333300003330FFFF0033 0083333300003330000003333333333300003333333333333333333300003333 33333333333333330000} OnClick = SaveBtnClick end object PrintBtn: TSpeedButton Left = 52 Top = 4 Width = 25 Height = 25 Hint = 'Print text' Glyph.Data = { 66010000424D6601000000000000760000002800000014000000140000000100 040000000000F000000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333300003333333333333333333300003300033333333330003300003000 0000000000000003000030F77777777777777703000030F77777777777777703 000030F77777777777997703000030FFFFFFFFFFFFFFFF030000380088888888 88880083000033300000000000000333000033300FFFFFFFFFF0033300003333 0F00000000F03333000033330FFFFFFFFFF03333000033330F00000000F03333 000033330FFFFFFFFFF03333000033330F00FFFFFFF03333000033330FFFFFFF FFF0333300003333000000000000333300003333333333333333333300003333 33333333333333330000} OnClick = PrintBtnClick end object CutBtn: TSpeedButton Left = 82 Top = 4 Width = 25 Height = 25 Hint = 'Cut' Glyph.Data = { 66010000424D6601000000000000760000002800000014000000140000000100 040000000000F000000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777700007770000777777000077700007780FF00777700FF087700007780 77F077770F770877000077807770777707770877000077780770077807708777 0000777780000880000877770000777777000000007777770000777777700FF0 07777777000077777778000087777777000077777780FF0F0877777700007777 780FF00FF08777770000777780FF0770FF087777000077780FF077770FF08777 00007780FF07777770FF08770000780FF0777777770FF087000070FF07777777 7770FF07000070F07777777777770F0700007007777777777777700700007777 77777777777777770000} OnClick = CutBtnClick end object CopyBtn: TSpeedButton Left = 108 Top = 4 Width = 25 Height = 25 Hint = 'Copy' Glyph.Data = { 66010000424D6601000000000000760000002800000014000000140000000100 040000000000F000000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 77777777000077777770000000000777000077777770FFFFFFFF077700007777 7770BFBFBFBF0777000077777770F888888F0777000077777770BFBFBFBF0777 000077000000F888888F07770000770FFFF0BFBFBFBF07770000770FFFF0F888 888F07770000770F7770BFBFBFBF07770000770FFFF0FFFFFF0007770000770F 7770BFBFBF0077770000770FFFF00000000777770000770F777777F077777777 0000770FFFFFFFF0777777770000770FFFFFF000777777770000770FFFFFF007 7777777700007700000000777777777700007777777777777777777700007777 77777777777777770000} OnClick = CopyBtnClick end object PasteBtn: TSpeedButton Left = 134 Top = 4 Width = 25 Height = 25 Hint = 'Paste' Glyph.Data = { 66010000424D6601000000000000760000002800000014000000140000000100 040000000000F000000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 33333333000033333333330000000003000033333333330F77777F0300003333 3333330F77777F03000033333333330F77777F03000030000000000F77777F03 000030FFFFFFFF0F77777F03000030FFFFFFFF0F77777F03000030FFFFFFFF0F 77777F03000030FFFFFFFF0F00000F03000030FFFFFF0FF001110033000030FF FFF000FF01110333000030FF0F000FFF80003333000030FF0000FFFF03333333 000030FF000FFFFF03333333000030FF0000F00003333333000030FFFFFFF0F0 33333333000030FFFFFFF0033333333300003000000000333333333300003333 33333333333333330000} OnClick = PasteBtnClick end object Deletebtn: TSpeedButton Left = 160 Top = 4 Width = 25 Height = 25 Hint = 'Delete' Glyph.Data = { 66010000424D6601000000000000760000002800000014000000140000000100 040000000000F000000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777700007770000000007777777700007770F88888807777777700007770 F07070807777777700007770F07080807777777700007770F070708077777777 00007770F07080807777777700007770F07070807777777700007070F0708080 7077777700007700F07070800777777700007770F07080807777777700007770 808080807777777700008070000000007777777700000F077777777777777777 0000807077777777777777780000780707777770887777770000707080777708 7F87778700007808080777808F87877700007780808077780877777700007777 78087777777777770000} OnClick = DeletebtnClick end object Label4: TLabel Left = 300 Top = 8 Width = 129 Height = 15 Alignment = taRightJustify Caption = 'Insert Action Command' end object NeoBookImage1: TNeoBookImage Left = 432 Top = 8 Width = 16 Height = 16 AutoSize = True Picture.Data = {} Transparent = True end object InsertActionBtn: TSpeedButton Left = 453 Top = 4 Width = 25 Height = 25 Hint = 'Select an Action Command from a list' Glyph.Data = { F6010000424DF601000000000000760000002800000030000000100000000100 0400000000008001000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777777777777777777777777777777777777777777777777777777777777 777777777777777777777777777707777777777777777777777777777777F777 77777777777F00777777777777770777777777777770FF777777777777FFF007 77777777777F70777777777777000FF7777777777FFFFF007777777777F7F707 77777777700000FF77777777FFFFFFF0077777777F7F7F70777777770000000F F777777FFFFFFFFF00777777F7F7F7F70777777000000000FF7777FFFFFFFFFF F777777F7F7F7F7F7777770000000000077777777FFFFF077777777777F7F707 77777777700000F7777777777FFFFF07777777777F7F7F7777777777700000F7 777777777FFFFF077777777777F7F70777777777700000F7777777777FFFFF07 777777777F7F7F7777777777700000F7777777777FFFFF777777777777F7F777 7777777770000077777777777777777777777777777777777777777777777777 7777777777777777777777777777777777777777777777777777} Layout = blGlyphRight NumGlyphs = 3 OnClick = InsertActionBtnClick end object CursorPos: TLabel Left = 196 Top = 8 Width = 17 Height = 15 Caption = '1/1' end end object ActionMemo: TMemo Left = 8 Top = 40 Width = 479 Height = 217 Font.Color = clWindowText Font.Height = -12 Font.Name = 'Courier New' Font.Style = [] HideSelection = False ParentFont = False ScrollBars = ssBoth TabOrder = 1 WordWrap = False OnChange = ActionMemoChange OnClick = ActionMemoChange OnDblClick = ActionMemoDblClick OnKeyUp = ActionMemoKeyUp OnMouseUp = ActionMemoMouseUp end end end object OkBtn: TBitBtn Left = 255 Top = 312 Width = 81 Height = 28 Caption = 'OK' Default = True ModalResult = 1 TabOrder = 1 Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333300033333333333000B0330000300000E00030BFB70FBFB0 E0003000000BFBF0E00030BFB70FBFB0E0003000000BFBF0E00030BFB70F0FB0 E00030000000FBF0E00030BFB700BFB0E0003300000BFB0000003333330FB033 33333333330B033333333333330F833333333333333083333333} end object CancelBtn: TBitBtn Left = 343 Top = 312 Width = 81 Height = 28 Cancel = True Caption = 'Cancel' ModalResult = 2 TabOrder = 2 Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333808333 33333333330F833333333333330B033330003333330FB03000B03380000BFB00 E000330FBFBFBFB0E000330087FBFBF0E000330FBFBFBFB0E000330087FBFBF0 E000330FBFBFBFB0E000330087FBFBF0E000330FBFBFBFB0E000338000000000 0000333333333333333333333333333333333333333333333333} end object HelpBtn: TBitBtn Left = 431 Top = 312 Width = 81 Height = 28 Caption = '&Help' TabOrder = 3 OnClick = HelpBtnClick Glyph.Data = { 76010000424D760100000000000076000000280000001B000000100000000100 0400000000000001000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3300003333333330000033333333333300BFBF00333333300000333333333330 FBF00BFB03333330000033333333330FBFBFBFBFB0333330000033333333300B FBFBFBFBF003333000003333333000BFBFB00FBFBF00033000003333330BF0FB FB0BF0FBFB0BF03000003CC330BF80BF000FBF00BF08BF0000003CC330FBF0F0 FF00F0FF0B0BFB000000333330BF00B0F00FB0F00F00BF0000003CC3330030F0 000BF0000B03003000003CCC3333300F00BFBF00B00333300000333CC333330B FBF00BFBF03333300000CC3CC3333330BFBF0FBF033333300000CCCCC3333333 00FBFB003333333000003CCC3333333333000033333333300000} end object EditorHint: TPanel Left = 8 Top = 308 Width = 241 Height = 33 BevelOuter = bvNone TabOrder = 4 Visible = False object Label10: TLabel Left = 8 Top = 2 Width = 228 Height = 29 AutoSize = False Caption = 'Use the keyboard to edit Actions manually or double click a line' + ' to edit interactively.' WordWrap = True end object Label11: TLabel Left = 0 Top = 0 Width = 6 Height = 18 Caption = '�' Font.Color = clBtnText Font.Height = -16 Font.Name = 'Arial' Font.Style = [] ParentFont = False end end end